home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / fifo.zip / TRANSACT.MDX (.txt) < prev   
dBASE Multiple Index  |  1991-03-04  |  4KB  |  64 lines
  1. TRANSACT
  2. ACCT_DATE
  3.       lst_hdr2=lst_hdr2+"
  4. "+"   Source(+) / Payee(-)  "
  5.       fctr=1
  6.   ENDCASE
  7.   IF rptchc=8
  8.     lst_hdr2=lst_hdr2+"
  9. "+"         Memo          "
  10.     lst_say=lst_say+"+'
  11. '+"+"note"
  12.   ELSE
  13.     lst_hdr2="Account "+"
  14. "+lst_hdr2+"
  15. "+"       Memo       "
  16.     lst_say="dbf_acct->acct_abrv+'
  17. '+"+lst_say+"+'
  18. '+LEFT(note,18)"
  19.   ENDIF
  20. ENDIF
  21. DO WHILE .T.
  22.   DO CASE
  23.     CASE rptchc=2 .OR. rptchc=4
  24.       msg='Enter Source of '+IIF(rptchc=2,'Expense','Income')+;
  25.         ' For Search or <ENTER> to end'
  26.       m_desc=SPACE(LEN(dbf_tran->descrip))
  27.       s_desc=UPPER(LTRIM(RTRIM(Show_Ans(msg,m_desc,;
  28.          REPLICATE("X",LEN(m_desc))))))
  29.       IF LEN(TRIM(s_desc))=0
  30.         EXIT
  31.       ENDIF
  32.       lst_hdr1=IIF(rptchc=2,'Payments For Payee',' Deposits From Source')+;
  33.       ' = '+s_desc+'  '+DTOC(begchoice)+' Thru '+DTOC(endchoice)
  34.       s_desc='*'+s_desc+'*'
  35.     CASE rptchc=7
  36.       lst_cat=Catagory()
  37.       IF VAL(lst_cat)=0
  38.         EXIT
  39.       ENDIF
  40.       IF VAL(lst_cat)=11
  41.         s_tag="acct_date"
  42. ACCT+DTOS(date)
  43. 4500519830208
  44. 4500519901214
  45. ADATE
  46. 4500519830208
  47. 4500519830509
  48. 4500519830520
  49. 4500519830819
  50. 4500519831104
  51. 4500519840206
  52. 4500519870626
  53. 4500519870717
  54. 4500519871013
  55. 4500519871224
  56. 4500519880524
  57. 4500519881209
  58. 4500519890602
  59. 4500519890718
  60. 4500519890911
  61. 4500519891227
  62. 4500519900504
  63. 4500519901214
  64.